! name: ajt18
! type: ArchiCAD Door File
! ***** 3D script *****

mat1 = c
mat2 = d

R=(0.055*0.055+(a/2-0.12)*(a/2-0.12))/0.11

resol 120

prism_   18, 0.045, 
    -a/2, 0, 15,
     a/2, 0, 15,
     a/2, b, 15,
    -a/2, b, 15,
    -a/2, 0, -1,

    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 79,
     0, 0.720-R, 900,
    -a/2+0.12, 0.665, 3015,
    -a/2+0.12, 0.16, -1,
    
    -a/2+0.12, 0.785, 79,
     0, 0.84-R, 900,
     a/2-0.12, 0.785, 3015,
     a/2-0.12, b-0.175,79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1


addz -0.005

R1=R-0.015

prism_ 12, 0.055,
    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 79,
     0, 0.720-R, 900,
    -a/2+0.12, 0.665, 3015,
    -a/2+0.12, 0.16, -1,

    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.72-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, 0.72-R, 900,
    -a/2+0.135,0.72-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.175, -1

R2=R+0.015
prism_ 14, 0.055,
    -a/2+0.12, 0.785, 79,
     0, 0.84-R, 900,
     a/2-0.12, 0.785, 3015,
     a/2-0.12, b-0.175,79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1,

    -a/2+0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), 79,
     0, 0.84-R, 900,
     a/2-0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), 3015,
     a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, b-0.12-R, 900,
     -a/2+0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
     -a/2+0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), -1

addz 0.0175

R3=R-0.05

 prism_ 12, 0.02,

    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.72-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, 0.72-R, 900,
    -a/2+0.135,0.72-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.175, -1,

    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.72-R+(R3*cos(ASN((a/2-0.17)/R3))), 79,
     0, 0.72-R, 900,
    -a/2+0.17,0.72-R+(R3*cos(ASN((a/2-0.17)/R3))), 3015,
    -a/2+0.17, 0.21, -1
 

R4=R+0.05
R5=R2+0.015
R6=R1-0.015

del 2

prism_   6, 0.045,

    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.72-R+(R3*cos(ASN((a/2-0.17)/R3))), 79,
     0, 0.72-R, 900,
    -a/2+0.17,0.72-R+(R3*cos(ASN((a/2-0.17)/R3))), 3015,
    -a/2+0.17, 0.21, -1


kx = -a/2+0.15
ky = 0.87+0.015+(b-(0.15+0.87)-0.015*3)/4

dx = (a-0.12*2-0.015*6) / 3
dy = (b-(0.15+0.87)-0.015*3)/4


for iy = 1 to 2 step 1

    for ix = 1 to 3 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

        kx = kx+dx+0.015

    next ix

    kx = -a/2+0.15

    ky = ky+dy+0.015

next iy

prism_ 43+nsp/3, 0.045,
     -a/2+0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), 79,
      0, 0.84-R, 900,
      a/2-0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), 3015,
      a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
      0, b-0.12-R, 900,
     -a/2+0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
     -a/2+0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), -1,

     -a/2+0.15, b-0.15-dy, 15,
     -a/2+0.15+dx, b-0.15-dy, 15,
     -a/2+0.15+dx, b-0.12-R+(R6*cos(ASN((a/2-(dx+0.15))/R6))), 79,
      0, b-0.12-R, 900,
     -a/2+0.15,  b-0.12-R+(R6*cos(ASN((a/2-0.15)/R6))), 3079, 
     -a/2+0.15, b-0.15-dy, -1,

      a/2-0.15-dx, b-0.15-dy, 15,
      a/2-0.15, b-0.15-dy, 15,
      a/2-0.15, b-0.12-R+(R6*cos(ASN((a/2-0.15)/R6))), 79,
      0, b-0.12-R, 900,
      a/2-0.15-dx, b-0.12-R+(R6*cos(ASN((a/2-(dx+0.15))/R6))), 3079,
      a/2-0.15-dx, b-0.15-dy, -1,

     -dx/2, b-0.15-dy, 15,
      dx/2, b-0.15-dy, 15,
      dx/2, b-0.12-R+(R6*cos(ASN((a/2-(dx+0.15+0.015))/R6))), 79,
      0, b-0.12-R, 900,
     -dx/2,  b-0.12-R+(R6*cos(ASN((a/2-(dx+0.15+0.015))/R6))),3079,  
     -dx/2, b-0.15-dy, -1, 

     -a/2+0.15, 0.84-R+(R5*cos(ASN((a/2-0.15)/R5))), 79,
      0, 0.84-R, 900,
     -a/2+0.15+dx, 0.84-R+(R5*cos(ASN((a/2-0.15-dx)/R5))), 3079,
     -a/2+0.15+dx, 0.87+dy, 15,
     -a/2+0.15, 0.87+dy, 15,
     -a/2+0.15, 0.84-R+(R5*cos(ASN((a/2-0.15)/R5))), -1,


      a/2-0.15-dx, 0.84-R+(R5*cos(ASN((a/2-0.15-dx)/R5))), 79,
      0, 0.84-R, 900,
      a/2-0.15, 0.84-R+(R5*cos(ASN((a/2-0.15)/R5))), 3079,
      a/2-0.15, 0.87+dy, 15,
      a/2-0.15-dx, 0.87+dy, 15,
      a/2-0.15-dx, 0.84-R+(R5*cos(ASN((a/2-0.15-dx)/R5))), -1,

     -dx/2, 0.84-R+(R5*cos(ASN((a/2-0.15-dx-0.015)/R5))), 79, 
      0, 0.84-R, 900,
      dx/2, 0.84-R+(R5*cos(ASN((a/2-0.15-dx-0.015)/R5))), 3079,
      dx/2, 0.87+dy, 15, 
     -dx/2, 0.87+dy, 15, 
     -dx/2, 0.84-R+(R5*cos(ASN((a/2-0.15-dx-0.015)/R5))), -1,

   use (nsp)


material mat1
addz 0.019

for ii = 1 to 3*2 step 1

    prism_ 5, 0.007,
        get (15)

next ii



prism_ 6, 0.007,
     -a/2+0.15, b-0.15-dy, 15,
     -a/2+0.15+dx, b-0.15-dy, 15,
     -a/2+0.15+dx, b-0.12-R+(R6*cos(ASN((a/2-(dx+0.15))/R6))), 79,
      0, b-0.12-R, 900,
     -a/2+0.15,  b-0.12-R+(R6*cos(ASN((a/2-0.15)/R6))), 3079, 
     -a/2+0.15, b-0.15-dy, -1

prism_ 6, 0.007,
      a/2-0.15-dx, b-0.15-dy, 15,
      a/2-0.15, b-0.15-dy, 15,
      a/2-0.15, b-0.12-R+(R6*cos(ASN((a/2-0.15)/R6))), 79,
      0, b-0.12-R, 900,
      a/2-0.15-dx, b-0.12-R+(R6*cos(ASN((a/2-(dx+0.15))/R6))), 3079,
      a/2-0.15-dx, b-0.15-dy, -1

prism_ 6, 0.007,
     -dx/2, b-0.15-dy, 15,
      dx/2, b-0.15-dy, 15,
      dx/2, b-0.12-R+(R6*cos(ASN((a/2-(dx+0.15+0.015))/R6))), 79,
      0, b-0.12-R, 900,
     -dx/2,  b-0.12-R+(R6*cos(ASN((a/2-(dx+0.15+0.015))/R6))),3079,  
     -dx/2, b-0.15-dy, -1

prism_ 6, 0.007,
     -a/2+0.15, 0.84-R+(R5*cos(ASN((a/2-0.15)/R5))), 79,
      0, 0.84-R, 900,
     -a/2+0.15+dx, 0.84-R+(R5*cos(ASN((a/2-0.15-dx)/R5))), 3079,
     -a/2+0.15+dx, 0.87+dy, 15,
     -a/2+0.15, 0.87+dy, 15,
     -a/2+0.15, 0.84-R+(R5*cos(ASN((a/2-0.15)/R5))), -1

prism_ 6, 0.007,
      a/2-0.15-dx, 0.84-R+(R5*cos(ASN((a/2-0.15-dx)/R5))), 79,
      0, 0.84-R, 900,
      a/2-0.15, 0.84-R+(R5*cos(ASN((a/2-0.15)/R5))), 3079,
      a/2-0.15, 0.87+dy, 15,
      a/2-0.15-dx, 0.87+dy, 15,
      a/2-0.15-dx, 0.84-R+(R5*cos(ASN((a/2-0.15-dx)/R5))), -1

prism_ 6, 0.007,
     -dx/2, 0.84-R+(R5*cos(ASN((a/2-0.15-dx-0.015)/R5))), 79, 
      0, 0.84-R, 900,
      dx/2, 0.84-R+(R5*cos(ASN((a/2-0.15-dx-0.015)/R5))), 3079,
      dx/2, 0.87+dy, 15, 
     -dx/2, 0.87+dy, 15, 
     -dx/2, 0.84-R+(R5*cos(ASN((a/2-0.15-dx-0.015)/R5))), -1
   

del 1
addz 0.045
addy 0.95
addx -a/2+0.06

call "handle_1" mat2

addz -0.045
mulz -1

call "handle_1" mat2
